UC知道关于ASP ,如何去掉"今天没有人过生日"窗口?
来源：百度知道 编辑：UC知道 时间：2024/05/05 03:33:36
这段代码,当无人过生日的时候,也会弹出一个窗口,上面显示:无人过生日,
如何修改代码,当无人过生日的时候,不弹出窗口?
<STYLE TYPE="text/css">
<!--
BODY {color: #0000FF;background-image: URL(http://192.168.1.105/shengri/bg.jpg);
}
-->
</STYLE>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("shengri.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
dim xtdate,xm
xtdate=Month(date)&"-"&Day(date)
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from xtxt where xtbirthday = '" & xtdate & "'"
rs.Open rs.Source,conn,1,1
if rs.EOF then
response.write "今天没人过生日！"
else
xm=""
do while not rs.EOF
xm=xm&rs("xtname")&"，&q
如何修改代码,当无人过生日的时候,不弹出窗口?
<STYLE TYPE="text/css">
<!--
BODY {color: #0000FF;background-image: URL(http://192.168.1.105/shengri/bg.jpg);
}
-->
</STYLE>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("shengri.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
dim xtdate,xm
xtdate=Month(date)&"-"&Day(date)
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from xtxt where xtbirthday = '" & xtdate & "'"
rs.Open rs.Source,conn,1,1
if rs.EOF then
response.write "今天没人过生日！"
else
xm=""
do while not rs.EOF
xm=xm&rs("xtname")&"，&q
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("shengri.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
dim xtdate,xm
xtdate=Month(date)&"-"&Day(date)
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from xtxt where xtbirthday = '" & xtdate & "'"
rs.Open rs.Source,conn,1,1
if not rs.eof then
xm=""
do while not rs.EOF
xm=xm&rs("xtname")&"，"
rs.MoveNext
loop
rs.close
response.Write("<span class='style'>")
response.Write(xm&"今天是您的生日,全局恭祝您生日快乐，感谢您为单位做出的卓越贡献!")
response.Write("</span>")
end if
set rs=nothing
conn.close
set conn=nothing
%>
弹出窗口代码不在这里，在script语句里面